---
title: "RESULTADO MENSAL"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    #vertical_layout: fill
    vertical_layout: scroll
    logo: pp.png
    social: [ "twitter", "facebook","google +", "linkedin", "pinterest" ]
    source_code: embed
    #runtime: shiny
---

```{r setup, include=FALSE}
#devtools::install_github("jeromefroe/circlepackeR")
#library(devtools)
library(flexdashboard)
library(readxl)
library(tidyr)
library(plotly)
library(ggmap)
library(RColorBrewer)
library(treemap)
library(hrbrthemes)
library(circlepackeR)
library(data.tree)
library(babynames)
library(viridis)
library(dplyr)
library(lubridate)
library(DT)
#library(d3treeR)
library(chorddiag)
library(circlize)
library(igraph)
library(networkD3)
library(flextable)

#setwd(dirname(rstudioapi::getActiveDocumentContext()$path)) #set no local onde o script está

#função criada para computar quantos dias tem o mês
numberOfDays <- function(date) {
    m <- format(date, format="%m")

    while (format(date, format="%m") == m) {
        date <- date + 1
    }

    return(as.integer(format(date - 1, format="%d")))
}

######## LEITURA DOS BANCOS DE DADOS


arquiteto <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/ARQUITETO/PROJETOS_ARQUITETO.xlsm", sheet=1)
arquiteto$`DATA DE ENTREGA`=as.Date(arquiteto$`DATA DE ENTREGA`, origin = "1899-12-30")

redacao <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/REDAÇÃO/01.REDATOR.xlsm", sheet=1)
redacao$`DATA DE ENTREGA`=as.Date(redacao$`DATA DE ENTREGA`, origin = "1899-12-30")

audiovisual=read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/SAULO - AUDIO VISUAL/AUDIO_VISUAL.xlsm", sheet = 1)
audiovisual$`DATA DE ENTREGA`=as.Date(audiovisual$`DATA DE ENTREGA`, origin = "1899-12-30")

projetos <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/GABI/GABI_GLPI.xlsm", sheet = 1)
projetos$`DATA DE ENTREGA`=as.Date(projetos$`DATA DE ENTREGA`, origin = "1899-12-30")

digitais <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/MKT  DIGITAL/PROJETOS_MKT_DIGITAL.xlsm", sheet=1)
digitais$`DATA DE ENTREGA`=as.Date(digitais$`DATA DE ENTREGA`, origin = "1899-12-30")

########

maindata=merge(arquiteto, redacao, all=T) %>% merge(audiovisual, all=T) %>% merge(projetos, all=T) %>% merge(digitais, all=T)

maindata=maindata %>% filter(!`DATA DE ENTREGA`% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))

arquitetomensal = arquiteto %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))

audiovisualmensal = audiovisual %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))

digitaismensal = digitais %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))

projetosmensal = projetos %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))

redacao = redacao %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))

#comando para adicionar o mês anterior 
#(as.Date(cut(Sys.Date(), "month")) %m-% months(1))

#comando + função numberOfDays para identificar o ultimo dia do mês passado
#(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1))) - 1)

```

Arquitetura
=====================================

Row {data-width=150}
--------------------------------------
### Total de serviços prestados pelo nucleo de arquitetura
```{r, label = "Cabeçalho Arquiteto 1"}
totalservicos=arquiteto %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio")) %>% nrow()
valueBox(value = totalservicos,icon = "fa-calendar",caption = "Total de atividades realizadas no ano",color = "#7DB61C")
```

### Total de serviços feitos pelo nucleo de arquitetura no mês
```{r, label = "Cabeçalho Arquiteto 2"}
servicosmensal=arquitetomensal %>% filter(STATUS!="NOVO") %>% nrow()
valueBox(value = servicosmensal,icon = "fa-thumbs-up",caption = "Total de atividades realizadas no mês",color = "#00AE9D")
```

### Novas Agências
```{r, label = "Cabeçalho Arquiteto 3"}
novasagencias=arquitetomensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Nova_agência"); novasagencias = length(levels(factor(novasagencias$MACROPROCESSO)))
valueBox(value = novasagencias,icon = "fa-building",caption = "Novas Agências",color = "#49479D")
```

### Reformas de agências
```{r, label = "Cabeçalho Arquiteto 4"}
reformaagencia=arquitetomensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Reforma_Agência"); reformaagencia = length(levels(factor(reformaagencia$MACROPROCESSO)))
valueBox(value = reformaagencia,icon = "fa-pencil",caption = "Reforma de agência",color = "orange")
```

### Metros quadrados
```{r, label = "Cabeçalho Arquiteto 5"}
metrosquadrados=data.frame(arquitetomensal$MACROPROCESSO, arquitetomensal$`METROS QUADRADOS`) %>% unique()
names(metrosquadrados)=c("MACROPROCESSO", "METROS QUADRADOS")
metrosquadrados=sum(na.omit(metrosquadrados$`METROS QUADRADOS`))
valueBox(value = metrosquadrados,icon = "fa-map",caption = "Soma das metragens no mês (m²)",color = "coral")
```

Row
-----------------------

### Novas Agências - Atividades realizadas
```{r}
fonte=arquiteto %>% filter(CATEGORIA=="Nova_agência")
proporcaoprodutos=data.frame(table(fonte$MACROPROCESSO))
names(proporcaoprodutos)=c("Novas agências", "Atividades")

myft <- flextable(
  proporcaoprodutos,
  col_keys = c("Novas agências", "Atividades"))

#myft <- italic(myft, j = 1)
myft <- bg(myft, bg = "#7DB61C", part = "header")
myft <- color(myft, color = "white", part = "header")
myft <- autofit(myft)
myft
```

### Reformas de agências - Atividades realizadas
```{r}
fonte=arquiteto %>% filter(CATEGORIA=="Reforma_Agência")
proporcaoprodutos=data.frame(table(fonte$MACROPROCESSO))
names(proporcaoprodutos)=c("Reformas de agências", "Atividades")

myft <- flextable(
  proporcaoprodutos,
  col_keys = c("Reformas de agências", "Atividades"))

#myft <- italic(myft, j = 1)
myft <- bg(myft, bg = "#7DB61C", part = "header")
myft <- color(myft, color = "white", part = "header")
myft <- autofit(myft)
myft
```

### Reformas de fachadas - Atividades realizadas
```{r}
fonte=arquiteto %>% filter(CATEGORIA=="Reforma_fachada")
proporcaoprodutos=data.frame(table(fonte$MACROPROCESSO))
names(proporcaoprodutos)=c("Reformas de fachadas", "Atividades")

myft <- flextable(
  proporcaoprodutos,
  col_keys = c("Reformas de fachadas", "Atividades"))

#myft <- italic(myft, j = 1)
myft <- bg(myft, bg = "#7DB61C", part = "header")
myft <- color(myft, color = "white", part = "header")
myft <- autofit(myft)
myft
```

Row
---

### Serviços prestados no mês

```{r}
proporcaoprodutos=data.frame(table(arquitetomensal$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### 10 Pontos focais que mais pedem
```{r}
pecas_acumuladas=data.frame(table(arquitetomensal$`PONTO FOCAL`))

plot_ly(pecas_acumuladas, x = ~reorder(Var1, -Freq), y = ~Freq, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Ponto focal"), yaxis = list(title="Quantidade de peças pedidas"))

```

### 10 cooperaivas que mais pedem

```{r}
demandas_cooperativas=data.frame(table(arquitetomensal$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Cooperativas"))

p

```

Row
-------------------

### Atividades realizadas no mês

```{r}
demandas_mes=arquitetomensal

teste_pecas=data.frame(table(demandas_mes$`TÉCNICO RESPONSÁVEL`, demandas_mes$`DATA DE ENTREGA`))
names(teste_pecas)=c("Colaborador", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)

# Plot
p <- teste_pecas %>% 
  ggplot( aes(x=year, y=n, fill=Colaborador, text=n)) +
  geom_area( )+
  scale_fill_viridis(discrete = TRUE)+
  #theme(legend.position="none") +
  theme_ipsum()+
  scale_x_date(date_labels = "%e %B")
  #theme(legend.position="none")

# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de peças"))
p
```

### Os 10 não Pontos-focais que mais pedem

```{r}
demandas_cooperativas=data.frame(table(arquitetomensal$`QUEM ABRIU O CHAMADO? (CASO N SEJA O PONTO FOCAL)` ))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Colaborador"))

p

```



Audiovisual
=====================================

Row {data-width=150}
--------------------------------------
### Total de Vídeos feitos pelo nucleo de audiovisual
```{r}
totalvideos=audiovisual %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio", "Captação")) %>% nrow()
valueBox(value = totalvideos,icon = "fa-calendar",caption = "Total de vídeos feito no ano",color = "#7DB61C")
```

### Total de Vídeos feitos pelo nucleo de audiovisual no mê
```{r}
videosmensal=audiovisualmensal %>% filter(STATUS!="NOVO") %>% nrow()
valueBox(value = videosmensal,icon = "fa-thumbs-up",caption = "Total de vídeos feito no mês",color = "#00AE9D")
```

### Total de captações feitas
```{r}
captacao=audiovisual %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Captação") %>% nrow()
valueBox(value = captacao,icon = "fa-camera",caption = "Total de captação feita no mês",color = "#49479D")
```

### Total de minutos editados no mês
```{r}
minutoseditado=audiovisualmensal %>% filter(STATUS!="NOVO"); minutoseditado=sum(na.omit(minutoseditado$MINUTAGEM))
valueBox(value = minutoseditado,icon = "fa-clock",caption = "Total de minutos editados no mês",color = "orange")
```

### Quantidade de alterações feita no mês
```{r}
alteracoes=audiovisualmensal %>% filter(STATUS!="NOVO"); alteracoes=sum(na.omit(alteracoes$`Nº DE ALTERAÇÕES`))
valueBox(value = alteracoes,icon = "fa-user-plus",caption = "Quantidade de alterações feita no mês",color = "coral")
```

Row
-----------------------

### Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(audiovisualmensal$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### 10 Pontos focais que mais pedem
```{r}
pecas_acumuladas=data.frame(table(audiovisualmensal$`PONTO FOCAL`))

plot_ly(pecas_acumuladas, x = ~reorder(Var1, -Freq), y = ~Freq, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Ponto focal"), yaxis = list(title="Quantidade de peças pedidas"))

```

### 10 cooperaivas que mais pedem

```{r}
demandas_cooperativas=data.frame(table(audiovisualmensal$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Cooperativas"))

p

```

Row
-------------------


### Produção de vídeo no mês
```{r}
demandas_mes=audiovisualmensal

teste_pecas=data.frame(table(demandas_mes$`TÉCNICO RESPONSÁVEL`, demandas_mes$`DATA DE ENTREGA`))
names(teste_pecas)=c("Colaborador", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)

# Plot
p <- teste_pecas %>% 
  ggplot( aes(x=year, y=n, fill=Colaborador, text=n)) +
  geom_area( )+
  scale_fill_viridis(discrete = TRUE)+
  #theme(legend.position="none") +
  theme_ipsum()+
  scale_x_date(date_labels = "%e %B")
  #theme(legend.position="none")

# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de peças"))
p
```

### Os 10 não Pontos-focais que mais pedem

```{r}
demandas_cooperativas=data.frame(table(audiovisualmensal$`QUEM ABRIU O CHAMADO? (CASO N SEJA O PONTO FOCAL)` ))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Colaborador"))

p

```


Mídias Digitais
=====================================

Row {data-width=150}
--------------------------------------

### Total de serviços prestados no mês
```{r}
servicosmensal=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio")); servicosmensal=sum(na.omit(servicosmensal$`Nº DE PEÇAS`)) 
valueBox(value = servicosmensal,icon = "fa-thumbs-up",caption = "Total de serviços no mês",color = "#7DB61C")
```

### Minutos em Reuniões
```{r}
reuniao=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Reunião")
reuniao=sum(na.omit(reuniao$MINUTAGEM))
valueBox(value = reuniao,icon = "fa-clock",caption = "Minutos em reuniões no mês",color = "#00AE9D")
```

### Total de Planejamentos execuados no mês
```{r}
planejamento=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Planejamento") %>% nrow()
valueBox(value = captacao,icon = "fa-list",caption = "Total de planejamtos no mês",color = "#49479D")
```

### Total de impulsionamento
```{r}
impulsionamento=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(SERVIÇO=="Impulsionamento") %>% nrow()
valueBox(value = impulsionamento,icon = "fa-arrow-up",caption = "Total de Impulsionamentos",color = "orange")
```

### Valor do impulsionamento
```{r}
impulsionamento=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(SERVIÇO=="Impulsionamento")
impulsionamento=sum(na.omit(impulsionamento$VALOR))

valueBox(value = impulsionamento,icon = "fa-credit-card",caption = "Valor total de Impulsionamento",color = "coral")
```

Row
-----------------------

### Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(digitaismensal$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### 10 Pontos focais que mais pedem
```{r}
pecas_acumuladas=data.frame(table(digitaismensal$`PONTO FOCAL`))

if(nrow(pecas_acumuladas)==0){
  print("Não houve pedidos por Pontos-focais")
}else{

plot_ly(pecas_acumuladas, x = ~reorder(Var1, -Freq), y = ~Freq, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Ponto focal"), yaxis = list(title="Quantidade de peças pedidas"))
}

```

### 10 cooperaivas que mais pedem

```{r}
demandas_cooperativas=data.frame(table(digitaismensal$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Cooperativas"))

p

```

Row
-------------------


### Produtividade diária
```{r}
demandas_mes=digitaismensal

teste_pecas=data.frame(table(demandas_mes$`TÉCNICO RESPONSÁVEL`, demandas_mes$`DATA DE ENTREGA`))
names(teste_pecas)=c("Colaborador", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)

# Plot
p <- teste_pecas %>% 
  ggplot( aes(x=year, y=n, fill=Colaborador, text=n)) +
  geom_area( )+
  scale_fill_viridis(discrete = TRUE)+
  #theme(legend.position="none") +
  theme_ipsum()+
  scale_x_date(date_labels = "%e %B")
  #theme(legend.position="none")

# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de peças"))
p
```

### Os 10 colaboradores que mais pedem

```{r}

demandas_cooperativas=data.frame(table(digitaismensal$`QUEM ABRIU O CHAMADO? (CASO N SEJA O PONTO FOCAL)` ))
if(nrow(demandas_cooperativas)==0){
  print("não houve demandas por não Pontos-Focais")
}else{

names(demandas_cooperativas)=c("Cooperativa", "Frequência")

demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Colaborador"))

p
}

```

Projetos
=====================================

Row {data-width=150}
--------------------------------------
### Total de serviços executados no ano
```{r}
totalservicos=projetosmensal %>% filter(STATUS!="NOVO") %>% nrow()
valueBox(value = totalservicos,icon = "fa-calendar",caption = "Total atividades executadas no mês",color = "#7DB61C")
```

### Tempo gasto em reuniões
```{r}
reuniao=projetosmensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Reunião")
reuniao=sum(na.omit(reuniao$MINUTAGEM))
valueBox(value = reuniao,icon = "fa-clock",caption = "Minutos em reuniões no mês",color = "#00AE9D")
```

### Projetos feito no mês
```{r}
nprojetos=projetosmensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Projeto"); nprojetos=length(levels(factor(nprojetos$MACROPROCESSO)))
valueBox(value = nprojetos,icon = "fa-list",caption = "Total de projetos feito no mês",color = "#49479D")
```

### Total de Análises de patrocínios entregues no mês
```{r}
patrocinio=projetosmensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Patrocínio
") %>% nrow()
valueBox(value = patrocinio,icon = "fa-users",caption = "Análise de patrocínio entregue no mês",color = "orange")
```

### Entregas de Mídias-off
```{r}
midiasoff=projetosmensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Mídia_off"); midiasoff=length(levels(factor(midiasoff$MACROPROCESSO)))
valueBox(value = midiasoff,icon = "fa-user-plus",caption = "Entregas de Mídias-off no mês",color = "coral")
```

Row
-----------------------
### Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(projetosmensal$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### 10 Pontos focais que mais pedem
```{r}
pecas_acumuladas=data.frame(table(projetosmensal$`PONTO FOCAL`))

if(nrow(pecas_acumuladas)==0){
  print("Não houve pedidos de pontos focais")
} else{

plot_ly(pecas_acumuladas, x = ~reorder(Var1, -Freq), y = ~Freq, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Ponto focal"), yaxis = list(title="Quantidade de peças pedidas"))
}

```

### 10 cooperaivas que mais pedem

```{r}
demandas_cooperativas=data.frame(table(audiovisualmensal$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Cooperativas"))

p

```

Row
---------------

### Diagrama de Atividades e Projetos
```{r}
m=data.frame(table(projetosmensal$MACROPROCESSO, projetosmensal$CATEGORIA))
m=m %>% filter(Freq!=0)

# create a dataset:
data <- data.frame(
  from=m$Var1,
  to=m$Var2
)

# Plot
simpleNetwork(data, height="100px", width="100px",        
                   Source = 1,                 # column number of source
                   Target = 2,                 # column number of target
                   linkDistance = 10,          # distance between node. Increase this value to have more space between nodes
                   charge = -900,                # numeric value indicating either the strength of the node repulsion (negative value) or attraction (positive value)
                   fontSize = 14,               # size of the node names
                   fontFamily = "serif",       # font og node names
                   linkColour = "#666",        # colour of edges, MUST be a common colour for the whole graph
                   nodeColour = "#69b3a2",     # colour of nodes, MUST be a common colour for the whole graph
                   opacity = 0.9,              # opacity of nodes. 0=transparent. 1=no transparency
                   zoom = T                    # Can you zoom on the figure?
)
```

### Os 10 não Pontos-focais que mais pedem

```{r}
demandas_cooperativas=data.frame(table(projetosmensal$`QUEM ABRIU O CHAMADO? (CASO N SEJA O PONTO FOCAL)` ))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Colaborador"))

p

```

Redator
=====================================

Row {data-width=150}
--------------------------------------
### Total de serviços executados no ano
```{r}
totalvideos=audiovisual %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio", "Captação")) %>% nrow()
valueBox(value = totalvideos,icon = "fa-calendar",caption = "Total de vídeos feito no ano",color = "#7DB61C")
```

### Total de serviços prestados no mês
```{r}
videosmensal=audiovisualmensal %>% filter(STATUS!="NOVO") %>% nrow()
valueBox(value = videosmensal,icon = "fa-thumbs-up",caption = "Total de vídeos feito no mês",color = "#00AE9D")
```

### Total de captações feitas
```{r}
captacao=audiovisual %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Captação") %>% nrow()
valueBox(value = captacao,icon = "fa-camera",caption = "Total de captação feita no mês",color = "#49479D")
```

### Total de minutos editados no mês
```{r}
minutoseditado=audiovisualmensal %>% filter(STATUS!="NOVO"); minutoseditado=sum(na.omit(minutoseditado$MINUTAGEM))
valueBox(value = minutoseditado,icon = "fa-clock",caption = "Total de minutos editados",color = "orange")
```

### Quantidade de alterações feita no mês
```{r}
alteracoes=audiovisualmensal %>% filter(STATUS!="NOVO"); alteracoes=sum(na.omit(alteracoes$`Nº DE ALTERAÇÕES`))
valueBox(value = alteracoes,icon = "fa-user-plus",caption = "Quantidade de alterações feita no mês",color = "coral")
```

Row
-----------------------